From: Glenn Morris <rgm@gnu.org>
Date: Fri, 11 Sep 2009 03:40:55 +0000 (+0000)
Subject: (dired-compress-file): Declare.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10568
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1c975ce9ea2e39d57db84fc6841c23034e6e3e92;p=emacs.git

(dired-compress-file): Declare.
(ange-ftp-dired-compress-file): Add doc string.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 94525b540b8..fd7b83900d4 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4165,7 +4165,10 @@ COMPRESSING should be t if the specified file should be compressed,
 and nil if it should be uncompressed (that is, if it is a compressed file).
 NEWNAME should be the name to give the new compressed or uncompressed file.")
 
+(declare-function dired-compress-file "dired-aux" (file))
+
 (defun ange-ftp-dired-compress-file (name)
+  "Handler used by `dired-compress-file'."
   (let ((parsed (ange-ftp-ftp-name name))
 	conversion-func)
     (if (and parsed